Global DB As New ADODB.Connection
Global RS As New ADODB.Recordset

Private Sub Form_Load()
DB.Open ("Provider=microsoft.jet.oledb.4.0;data source = Inventory.mdb")
RS.Source = "Inventories"
RS.ActiveConnection = DB
RS.CursorType = adOpenDynamic
RS.Open

End Sub
